unit autorizzazioni_frm;

{$mode objfpc}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, DbCtrls,datamodule1_frm;

type

  { TAutorizzazioni }

  TAutorizzazioni = class(TForm)
    btchiudi: TButton;
    btsalvaautorizzazione: TButton;
    cbente: TDBComboBox;
    DB_AUT_DATAEFF: TDBEdit;
    DB_AUT_DATAPREV: TDBEdit;
    DB_AUT_DATARIC: TDBEdit;
    DB_AUT_FASE: TDBEdit;
    DB_AUT_NOTE: TDBMemo;
    Label124: TLabel;
    Label125: TLabel;
    Label126: TLabel;
    Label127: TLabel;
    Label128: TLabel;
    Label129: TLabel;
    procedure btchiudiClick(Sender: TObject);
    procedure btsalvaautorizzazioneClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Autorizzazioni: TAutorizzazioni;

implementation

{ TAutorizzazioni }

procedure TAutorizzazioni.btsalvaautorizzazioneClick(Sender: TObject);
begin
  if btsalvaautorizzazione.Caption='Salva' then
     begin
       //passo il valore della "chiave", quindi salvo le modificha
       datamodule1.zqautorizzazioni.FieldByName('ID_OPERA_AUT').Value:=DataModule1.dsesecutivo.DataSet.FieldByName('AN_OP_ID_OPERA').AsInteger;
       datamodule1.zqautorizzazioni.FieldByName('IDPRELIMINARE').Value:=DataModule1.dsesecutivo.DataSet.FieldByName('IDPRELIMINARE').AsInteger;
       datamodule1.zqautorizzazioni.FieldByName('IDDEFINITIVO').Value:=DataModule1.dsesecutivo.DataSet.FieldByName('IDDEFINITIVO').AsInteger;
       datamodule1.zqautorizzazioni.FieldByName('IDESECUTIVO').Value:=DataModule1.dsesecutivo.DataSet.FieldByName('IDESECUTIVO').AsInteger;
     end;
  DataModule1.zqautorizzazioni.ApplyUpdates;
  DataModule1.zqautorizzazioni.CommitUpdates;
    //aggiorna la griglia delle autorizzazioni
  DataModule1.dsautorizzazioni.DataSet.Refresh;
  Close;
end;

procedure TAutorizzazioni.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
    closeAction:=caFree;
end;

procedure TAutorizzazioni.FormShow(Sender: TObject);
begin
  // popoliamo la combo aree responsabili  complete
  with datamodule1.zqenti do
       begin
         close;
         sql.clear;
         sql.add('select * from lista_enti');
         ExecSQL;
         Open;
         first;
         while not EOF do
               begin
                 cbente.Items.add(FieldByName('ENTI').AsString);
                 Next;
               end;
         close;
       end;
end;





procedure TAutorizzazioni.btchiudiClick(Sender: TObject);
begin
  close;
end;

initialization
  {$I autorizzazioni_frm.lrs}

end.

